home *** CD-ROM | disk | FTP | other *** search
/ Exploring Where & Why / Exploring Where & Why.iso / pc / Lib.cst / 00061_DragDropStick.ls < prev    next >
Encoding:
Text File  |  2004-07-11  |  2.8 KB  |  135 lines
  1. --
  2. -- DragDropStick
  3. --
  4.  
  5. -- this class handles all runtime game management.
  6.  
  7. -- constants:
  8. property delaySecs  -- the number of seconds we delay before moving on to the next round
  9.  
  10.  
  11. property ancestor
  12. property responseFlag  -- do not respond with pos or neg sound on each play
  13. property waitResponseFlag  -- wait on the positive response until completion of the exercise
  14.  
  15. --JCODE
  16. global gUI
  17.  
  18. on new me
  19.   -- initialize constants:
  20.   set delaySecs = 1
  21.   
  22.   set ancestor = new (script "DragDropSetUp")
  23.   set responseFlag = TRUE
  24.   set waitResponseFlag = FALSE
  25.   
  26.   --add (the actorList, new (script "ObjectUpdater", me))
  27.   return me
  28. end
  29.  
  30.  
  31. on destruct me
  32.   if objectP (ancestor) then destruct (ancestor)
  33.   set ancestor = 0
  34. end
  35.  
  36.  
  37. on noResponse me
  38.   set responseFlag = FALSE
  39. end
  40.  
  41.  
  42. on waitResponse me
  43.   set responseFlag = FALSE
  44.   set waitResponseFlag = TRUE
  45. end
  46.  
  47.  
  48. on initializeRound me
  49.   hideDraggables (me)
  50.   initializeRound (ancestor)
  51.   showDraggables (me)
  52.   showTargets (me)
  53.   initPlay (me)
  54. end
  55.  
  56.  
  57. on mouseDown me, spr
  58.   if not isDraggable (me, spr) then return 0
  59.   
  60.   -- drag until release:
  61.   set testSpr = dragSprite (me, spr)
  62.   if testSpr = -1 then return 1  -- drag ended in starting position (exactly)
  63.   
  64.   -- on release of the mouse
  65.   -- check to see if the sprite is overlapping the correct container:
  66.   
  67.   set matchSprite = checkMatch (me, spr, testSpr)
  68.   hideUnderSprite (me)
  69.   
  70.   if matchSprite then
  71.     -- if a match, snap the draggable to position and stick it there.
  72.     snapToPosition (me, spr, matchSprite)
  73.     stickDraggable (me, spr)
  74.     hideTarget (me, matchSprite)
  75.     updateStage
  76.     
  77.     -- play the good response sound 
  78.     if responseFlag then playResponseSound(1, 1)
  79.     -- play the proper "ID" sound
  80.     playSprite (gUI, spr, #ID)
  81.     
  82.     -- move a bar graph if one has been set up:
  83.     moveGraph (me, the name of member the memberNum of sprite matchSprite of castLib the castLibNum of sprite matchSprite)
  84.     
  85.     moveOffScreen (me, matchSprite)
  86.     
  87.     set lab = string (getID (me, spr))
  88.     
  89.     
  90.     -- if there is an animation label then play that label:
  91.     if the labelList contains lab then
  92.       clearPictLink (me)
  93.       go lab
  94.       
  95.       -- otherwise check to see if we are done with the activity:
  96.     else
  97.       
  98.       if not done (me) then 
  99.         initPlay (me)
  100.       end if
  101.       
  102.     end if
  103.     
  104.   else
  105.     -- if no match, then move it back to it's starting position:
  106.     showDraggable (me, spr)
  107.     if responseFlag then playResponseSound(0, 1)
  108.   end if
  109.   
  110.   return 1  
  111. end
  112.  
  113.  
  114.  
  115. -- check to see if we are done.  
  116. -- if so, then do an action.
  117.  
  118. on done me
  119.   if checkDoneTargets (ancestor) then 
  120.     if waitResponseFlag then playResponseSound (1,1)
  121.     updateStage
  122.     wait (me, delaySecs)
  123.     go "finish"
  124.     unloadCast (me)
  125.     return 1
  126.   else
  127.     return 0
  128.   end if
  129. end
  130.  
  131.  
  132. on initPlay me
  133.   initHandCursor ("hand", getDraggableList (me))
  134. end
  135.